Digital Underground 1/Digital Underground 1.iso/main/gal2.dir/00022.ls

Text File | 1995-04-11 | 382 b | 21 lines

on mouseDown
  set spnum to the clickOn
  puppetSprite(spnum, 1)
  set the castNum of sprite spnum to the number of cast "RIGHT_D"
  updateStage()
  repeat while the stillDown
    updateStage()
  end repeat
  puppetSprite(spnum, 0)
end

on mouseUp
  global pno, chgflg
  if chgflg = 0 then
    if pno < 10 then
      set pno to pno + 1
      set chgflg to 1
    end if
  end if
end